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; 0901 : ; 

: B008 Version: *v04-000' 

: Bone i eeeeeeeeeeeeeeeeeeeeeeeeeneneeneeeeeeeerereereereereereeeeeeeeeneeeerenereer 
. 'e fs 
; 0006 0 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
H 0007 0 '‘® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: Bens 8 i: ALL RIGHTS RESERVED. * 
; ; 
: 0010 0 '® THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 0011 O '® ONLY IN ACCORD ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: Bei§ 8 't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 001 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERW ISE MADE AVAILABLE TO ANY * 
; 0014 0 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: SFE 8 :* TRANSFERRED. * 
: Mid t 
: 0017 QO '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0018 0 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; sith 8 ” CORPORATION. * 
Ps ; e 
; 0021 0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR ee OF ITS * 
: oo58 4 - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL : 
; 0024 0 it “ 
4 bo52 4 BES ESSS ICTS TTT TPT cece cece eee Tic TTT TTI TTT TTT TTI TIT IT TTT TiLiLiLicTiLiiy 
; 

; 0027 O '++ 

; 0028 0 ! 

3 94 8 NMAHEAD .B832 

; eth 8 Define SEQULST macro to make Library from the NMALIBRY.B32 file 

: 0033 0 i This source is taken from the following source: 

>; 0034 0 Lee 

; 0035 0 '++ 

>; 0036 0 i 

3 0037 0 i UTLDEF.B32 - UTI ILITY DEFINITION MACROS FOR BLISS PROCESSING 

: 0038 0 ! OF STARLET DEFINITION MACROS. 

; 0039 0 i 

; 0040 0 leo 

; 0041 QO 

; Boe§ 0 

; 0043 0 ‘ 

: Boge 8 : MACRO TO GENERATE EQULST CONSTRUCTS. 

Py 4 , 

HY 0 MACRO 

; 4 id 0 SEQULST(P.G,1,S)CAIJ= 

> ™ 0048 0 INAME(P{GETIST_ A) = 

: M 0049 2 ZIF NUL2ND_ A 

; ™ 0050 ZTHEN (1) * XCOUNT#(S) ! ASSUMES I, S ALWAYS GENERATED BY CONVERSION PROGRAM 
: ™ 0051 ZELSE GET2ND_ A 

; 0036 2FI 2%, 

: ™ 0054 GETIST_(A,B)= 

: 55 A 

; 4 36 GET2ND_(A,B)= 

: 5 8 ft, ' KNOWN NON-NULL 


NUL2ND_ (A,B) 
ZAULL (B 


End of NMAHEAD 
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AUTHOR: Scott Davidson 
MODIFICATION HISTORY: 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS . Lo eat FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY E wit SUCH Tait AND WITH THE 
INCLUSION OF onne ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT IDED OR OTHERWISE MADE AVA TAM E TO ANY 
PNSFERAEOY NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onmpOkat itn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FACILITY: VAX/VMS DECnet Network Management Listener 
ABSTRACT: 


This file contains varions MDL definitions for NML. 


ENVIRONMENT: 


n/a 
CREATION DATE: 11-Aug-1979 


v03-011 MKP0016 Kathy Perko 25_Mar-1984 
Add node parameter parsing constants. 
v03-010 og 15 Kathy Perko 66-Jan-1984 
d X25 Access Module entity. 
v03-009 MKP0014 Kathy Perko 7-July-1983 
Add eotintstons for {san node soraanaht database with 


four ISAM keys. 


v03-008 MKP0013 hy Perko 8-May-1983 
Coordinate NMLSLOG bits in NML and MOM. 


v03-007 MKP0012 Kathy Perko 24-April-1983 


a e222 


ee 
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13r8ee= 138s S8:boicg — “SbsbSnGAd8scameOBsINMeDEr.e32;1 2% «45 
Delete service functions from NML. Also, add 


support for circuit service substate and service 
physical address. 


V03-006 MKP0011 Kathy Perko 17-Jan-1983 
Support for NI Configurator Module. 
v03-005 MKP0010 Kathy Perko 18-Nov-1982 


Add module as a source for logging events. 
Add Phase IV. 


V03-004 MKP0009 Kathy Perko 27-Sept-1982 
Add Area and Adjacency entities. 


v03-003 MKP0008 Kathy Perko el~gept~198e 
Add dispatch table definitions for ZERO. 


v03-002 MKP0007 Kathy Perko 22-June-1982 
Set up ‘‘active network’ for X-25 Protocol networks and 
enhance onsete Table (in NMLDAT) to include ACTIVE and 
KNOWN search key IDs, Lengths, values, and operators. 
Add X29-Server entity. 


v03-001 MKP0006 Kathy Perko 17-Mar-1982 
Add NML entity codes and permanent database keys for 
X-25 Access and Server Modules. 


V02-006 MKP000S Kathy Perko 20-Nov-1981 
Ada pernaeves prow ing flags for X.25 Protocol DTEs, 
2 


Groups, and works. 
V02-005 MKP0004 Kathy Perko 17-Nov-1981 

Add circuits to event source block definitions. 
V02-004 MKP0003 Kathy Perko 3-Nov-1981 

Add field to MSB for second Line of message text 

for RMS signalled messages. 
v02-003 MKP0002 Kathy Perko 14-Oct-1981 : 

Add flags for parsing V2 to V3 SET LINE conversions. 
v02-002 MKP0001 Kathy Perko 18-Sept-1981 
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Change network management version number to 3.0.0 
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>; 0166 0 

oo 

; 8198 8 Symbol definitions for the Network Management Listener 
: 0171 0 

; O78 9 t .. SNMLDEF 

; O174 9 ! Message parsing flag bit definitions (set in NMLSGL_PRS_FLGS) 
adie 

: 0178 0 i Common parsing flags. 

Oke 8 ' 

; O18) 0 MACRO NMLSV_PRS_VMS = 0,0,1,0%; 

: O18¢ 0 LITERAL NMLSM~PRS-VMS = 141-140; 

: 0183 0 MACRO NMLSVIPRS"ALL == 0,1,1,0%; 

> 0184 0 LITERAL NMLSM~PRS-ALL = 142°='144; 

: 0185 0 MACRO NML$V~PRS-QUALIFIER = 0.2.1.0; 

> 0186 0 LITERAL NMLS$M~PRS_QUALIFIER = 143°~'148; 

: 0187 0 MACRO NMLSV"PRS"ENTITY_FOUND = 0,3,1,0% 

> 0188 0 LITERAL NMLSM~PRS-ENTITY-FOUND = 144-145; 

; 0189 0 T entity has been set, shown, etc. 
: Bie 8 ; 

: 0192 0 i Specific entity parsing flags. 

0198 9 Sone y parsing 9 

> 0195 0 i Node parsing flags. 

: 0196 O ! 

: Bid 8 

> 0199 0 MACRO NMLS$V_PRS_EXEPG = 0,8,1,0%; 

; 0200 0 LITERAL NMLSMPRS-EXEPG = 149°- 148; 

: 0201 0 MACRO NMLSV-PRS-NODPG = 0,9,1,0%; 

; 0208 0 LITERAL NMLSMPRS-NODPG = 1416 = 149; 

: 0203 0 MACRO NMLSV-PRS-REMPG = 0,10,1,0%; ! 
> 0204 0 LITERAL NMLSM~PRS-REMPG = 1411 - 1440; 

: 0205 0 MACRO NMLSV-PRS-LOOPG = 0,11,1,0%; ' 
; 0206 9 LITERAL NMLSM~PRS-LOOPG = 1412°-'1441; 

:  BShe 8 

; 09 i Logging parsing flags. 

3 10 ! 

5 esti o 

: $518 MACRO NMLSV_PRS_EXESNK = 0,8,1,0%; 

> 0214 0 LITERAL NMLSM~PRS_EXE SNK = 149°~'148; 

; 0215 MACRO NML$V~PRS~ SNKNOD = 0,9,1,0%; 

: 26 9 LITERAL NMLSM~PRS~ SNKNOD = 1416 = 149; 

: 021 MACRO NML$V—PRS~KNOSNK = 0,10,1,0%; 

: 38 9 LITERAL NMLS$M~PRS~KNOSNK = 1411°-'1440; 

: 1 MACRO NMLSV-PRS-EFIPG = 0,11,1,0%; ! 
; 330 0 LITERAL LSM"PRS-EFIPG = 1412°- 1441; 

: 0221 MACRO NMLSV-PRS"ESIPG = 0,12,1,0%; ! 
: 0222 0 LITERAL LSMTPRS-ESIPG = 1413°- 1°42; 


VA 
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Loop node parameter group 


' Known sink nodes 


Event sink parameter group 


=32 V4.0 
CNML .OBJ 


!' VMS specific function 
' Set/clear all parameters 


! Executor-only parameter group 
! Executor/node parameter group 
Remote node parameter group 


' Sink node is executor 
! Sink node specified 


Event filter parameter group 


-742 
INMLDEF .B32;1 


i ! NICE command includes a qualifier 
i ! On multiple entity operations, at least one 
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15-Sep-1984 23:07:07 VAX=-11 Bliss-32 V4.0-742 Pa 
13-Sep-1984 83:06:98 “SSSSSDEADBSENML CBVINMCDEF .032;1 29° (28 

s G225 MACRO NMLS$SV_PRS_EVE = 0,13,1,0%; ! Event t 

; 9 4 LITERAL NMLSM-PRS-EVE = 1414°="1443; Se eer hte 

; 5 > Li i fl 

; ! Line parsin ags. 

: 0558 ) 9 9 

: 958 0 

> 0231 6 MACRO NMLS$V_PRS_LINE = 0,8,6,0%; ! Line flags (LINS definitions) 

Wyse : LITERAL NMLSM~PRS-LINE = 1414 = 14g. 

3; Ges5 @ MACRO NMLS$V_PRS_V2_LINE = 0,14,1,0%; ! Command parameters are for a Line. 

; 08 4 0 LITERAL NML$M_PRS-V2-LINE =] 13 -"1444; 

s Ges © MACRO NMLSV_PRS_Ve_CIRCUIT = 0,15.1,0%; ! Command parameters are for a circuit. 

; 02 6 0 LITERAL NMLS$M_PRS_Ve_CIRCUIT = 1416-1445; 

>; 0237 O MACRO NMLS$V_PRS_V2_STA = 9.19.1 .08; ! Command contains a state change. 

; 0238 0 LITERAL NMLS$M_PRS_V2_STA = 1417°-"1*46; 

; Gey © 

; 05a) 0 i NICE , tant 

; ! message parsing constants 

: 9242 9 wisest 

: 024 0 LITERAL 

; P 0244 O SEQULST (NMLSC_,GBL,0,1 

; P 0245 O » (NODE_RUM_PARAM, 0) ! Parameter is always a node number 

; P BSe$ 8 g (NODE_10_PARAM, 1) ! Parameter can be a node number or name 

: 0248 0 al 

; 0249 0 ! Protocol DTE parsing flags. 

; 0250 0 ! 

BB 8 

: 0583 0 MACRO NML$V_PRS_CHANNELS = 0,8.1,0%; ! Processing SET channels - first channel 

: 0254 0 LITERAL NMLS$M~PRS~ CHANNELS = 149°="148; 

; Osea 8 : pair already encountered. 
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é | 
0 ' Network tty sag version definitions for message handling 
8 » (Set in NML$GB_CMD_VER) 
0 Shi! 
0 EQULST (NMLSC_,GBL,0,1 
0 - (PHASES. 1) ! Phase II function 
8 g (PHASE -OR_4, 2) ! Phase III or IV function 
! 
6 NAL return codes 
Q LITERAL 
0 SEQULST (NMLS_,GBL,0,1 
0 .($Ts_Suc, 1) ! Success 
0 (STS_FUN, =1*2) : yeropaensaee function or option 
0 »(STS_INV, =$* ) ! Invalid message format 
0 e(STS_PRI, -3*2) ! Privilege violation 
0 (STS_SIZ, -4*2) ! Message too long 
0 -(STS_MPR, -5*2) ' Network management program error 
0 e(STS_PTY, =6*2) ! Unrecognized parameter type | 
0 o(STS_MVE, -7*2) ! Incompatible management version 
0 -(STS_CMP, -8*2) : parecognigee component 
0 (STS_IDE, =-9*2) ! Invalid identification format 
0 -(STS_LCO, =19°5} ! Line communication error 
0 (STS_STA, -11#2) ! Component in wrong state 
0 e(STS_FOP, -13*2) ! File open error 
0 e(STS_FCO, -14*2) ! Invalid file contents 
0 o(STS_RES, -15*2) ! Resource error 
0 e(STS_PVA, -16*2) ! Invalid parameter value 
0 -(STS_LPR, nt te !' Line protocol error 
0 e<{STS_FIO, -18*2) ' File i/o error 
0 e(STS_MLD, -19*%2) ! Mirror Link disconnected 
0 -(STS_ROO, -20*2) ' No room for new entry 
0 »(STS_MCF, =2i*2) ! Mirror connect failed 
0 .(STS_PNA, “$625) ' Parameter not applicable 
0 +(STS_PLO, -23*2) ! Parameter value too long 
0 e(STS_HAR, -24*2) ' Hardware failure 
0 -(STS_OPE, - oe ' Operation failure 
0 »(STS"SYS, =26%2) i 
0 -(STS_PGP, -27*2) ! Invalid parameter grouping 
0 - (STS_BLR, ~$8° ) ! Bad loopback response 
g (STS MS. ~29%2) ! Parameter missing 
0 oe 
8 Network Management parameters 
LITERAL 
SEQULST (NMLSK_,GBL,0,1 

(VERSION, 45 ! Network Management version 

-(DEC_ECO, 0) ! DIGITAL ECO number 

;(USER_ECO, 0) i User ECO number 

»(FAC_CODE, 93) ! Facility code 
. g (S16_CODE, 5*65536) ! Signal code (505*°16) 


System-specific network management function not supported 
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Data definitions 


LITERAL 
SEQULST a -GBL,0,1 


»(BYTE,) ! Byte 
(WORD,) ' Word 
(LONG, ) ! Longword 
'® UAD ' Quadword 
"renenaranae ! String 


| 
t 
; Special permanent data base record search key parameter codes. 

' 

| 


LITERAL 
SEQULST a ,GBL 9 1 


»(KEY_LINE, -15 ' Line 

»(KEY_SINK, =2) ! Logging sink 
! Node uses name or address 

o(KEY_EXE, =3) ! Executor node 


! Object uses name 
' Circuit 
Protocol Module Network 
X25-Server Module 
X29-Server Module 


-(KEY_CIR, 4) 

* (KEYINET. -5) 
» (KEY-X25_SERV, -6) 
> (KEYX297SERV, =7) 


, (KEY_TRATE, -8) X25-Trace Module 
» (KEY_NI_CONFG, ~-9) NI Configurator Module 
g (KEV_X25 ACCESS, -10) ! X25 Access Module Network 


i Internal entity id codes. Do not reorder. Entries in 
NMLSAB_ENTITYDATA table depend on this order. 


ofl ' Line 

> (LOGGING, ) i Logging - 
-(SINK,) : Logging sink 

- (NODE ,) ! Node (by address) 
; (NODEBYNAME , ) ' Node by n 


' ame 
- (LOOPNODE , ) ' Loop node (by name only) 
- (ADJACENT_NODE ,) 


| 

LITERAL 
SEQULST VT 3. emma 

! Nodes one hop away, volatile | 


! database only 
o tee cyTOR. ! eaneueet sade Sy address=9) 
eo . ec i 
-(CIRCUIT,) i Circuit | 
. (CIRCUIT_ADJACENT,) ' By circuit, Nodes one hop away, 

! volatile database only. : 
. (CIRCUIT_ADJ_SRV,) ! By circuit, service adjacencies 
A? ! Area, volatile database only. | 
- (X25_ACCESS,) ! x25-Access Module 
, (PROT_NET,) ' X25-Protocol Mocule Networks 
, (PROT_DTE,) ! X25-Protocol Module DTEs | 
o toeet GRP,) ' X25-Protocol Module Groups 
, (X25_SERV,) ! X25-Server Module | 
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» (X25_SERV_DEST,) ' x g-ferver Module Destination 

» (TRATE,) ! X25-Trace Module 

* (TRACEPNT, ) ! xB5aherse Module Trecepoint 

“189° SERV V,) ! X29-Server Module 

» (X29-SERV_DEST,) ! X29-Server Module Destination 

» (NI_TON F1G.) ' NI confi urator Module 

»(LIRNKS,? ogical like. volatile database only. 
* (PROTOCOL, ) eaOER 4 Module 


" atetaamtcpdn 


! 
Internal information table index codes. 


Maximum entity number 


LITERAL 
SEQULST pot 4 be el 


! Summary ey 1 INF __SUM) 
(STATUS ' Status (NMASC_INF_STA) 
* (CHARACTERISTICS,) i Characteristics (NMA$C—INF—CHA) 
, (COUNTERS,) ' Counters ( 
. (EVENTS,) 3 
 (ZERO,) ' Zero counters 
* (SERVICE,) ! Service parameters 
"tanepionstisse ! Maximum information type 
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Network Management Node database definitions. Used for manipulating 
the node permanent database. This database (unlike the other entity 
permanent databases) uses 4 ISAM keys. 


eee te ee 


se . SNMNDEF 

MACRO NMNSL_KEY_LIS = 0,0,32,0%; ' 3rd alternate key = List node (consists of node 
ee bey concatenated with node 
: e ke 

MACRO NMNSW_KEY_ADD = 9.0.16. e . ! Primary key in record = node address 

MACRO NMNSW_KEY_TYP = 2,0,16,0%; ! Ist alternate key in record = node type (executor, 
: remote, or loopnode). 

MACRO NMNST_KEY_NAM = 4,0,0,0%; ! 2nd alternate key in record = node name 

LITERAL NMNSS"KEY-NAM = 6; 

LITERAL NMNSC"NODE_KEYS_LEN = 

LITERAL NMNSK _NODE KEYS LEN = 10; : Length of all three keys. 

MACRO NMNSA_NOD_PARAMS | ; g0-32.08: ! Beginning of node's NICE parameters 
! n the record. 


LITERAL 
SEQULST (NMNSC_,GBL,0,1 
! Keys for accessing node permanent database. 


-(ADD_KEY_REF, 0) ! The get key = node address 
o(TYP_KEY_REF, 1) ! The Ist alternate key = node type 

! (nml\$c_typ_exec, nml$c_typ_remote, 

' nml$c_typ_Toopnode). OverTaps with 

: node address key. 
' The 2nd alternate key = node name 
! The 5rd alternate key = node address 
concatenated with node type. Used 
to LIST nodes in order by address, 
but with exec first, then remotes, and 
Last loopnodes. 
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Lengths of node permanent database keys 


- CADD_KEY_LEN, 


! The primary key = node address 
TYP_KEY_LEN, 


) 

) ! The first alternate key overlaps with the 
! node address ney: 

) ! The second alternate key = node name 

) ! The third alternate key = node address 
‘ concatenated with node type. 


(NAM_KEY_LEN, 
(LIS-KEYZLEN, 


Key values for node key = type. The LIST key concatenates the node 
address key with the node type key. This allows the the LIST 

command to get nodes by type and, within type, sequentially by node 
address. The key value is constructed with a zero for the node 
address! hence when you do a $GET of ‘type OR 0) with a match type 
of GIR, it will get the first node of that type in the file. ? 
smeoqyens sequential reads wili return the nodes of that type in 
ascending order by address. 
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, (TYP_EXEC, 0) ' type = executor node 
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» (TYP_REMOTE 1) ' type = a remote node 

; (TYPZLOOPNODE, 2) i type = a loopnode 
' 


i Input values to node database routines. Used for determining 
what RMS operations to perform. 


T_REC 1) ' Do a $PUT (write a new record) 
* (UPDATE REC, $} ! Do a SUPDATE (update an exten record) 
; (DELETE “REC, ) ' Do a SDELETE (delete a record) 
s (GET REC, 4) i Do a $GET (read a record) 
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> 0469 
; 0470 
> ©0471 ; 
3 pers Message segment block (MSB) definitions 
: 0474 8 !,.. SMSBDEF 

Ps 0475 
; 0476 0 MACRO MSBSL_FLAGS 
3 78 6 MACRO MSBSV_CODE_FLD 
: 79 LITERAL MSBSM_CODE_FLD 
: 30 MACRO MSBSV_DET_FLD 
; 1 LITERAL MSBSM_DET_FLD 
3 pas MACRO MSBSV_MSG_FLD 
; 048 LITERAL MSBSM_MSG_FLD 
; 0484 0 MACRO MSBSV_RS6¢ FLD 
: 0485 0 LITERAL MSBSM_MSGO-FLD 
; 0486 0 MACRO MSBSV_ENTD_FLD 
: 0487 0 LITERAL MSBSM~ENTD FLD 
: 04688 0 MACRO MSB$V_DATA_FLD 
; 0489 0 LITERAL MSBSM_DATA_FLD 
: 0490 0 CRO MSBSV~SYSM-FLD 
; 0491 LITERAL MSBSM_SYSM~FLD 
: b298 0 MACRO MSBS$B_CODE 
; 0494 0 MACRO MSBSW_DETAIL 
: 0495 0 MACRO MSBSL_TEX 
> 0696 0 MACRO MSBSL_TEXT2 
: 0697 0 MACRO MSBSA_ENTITY 
: 0498 0 MACRO MSBSA_DATA 
$ 0499 0 LITERAL MSBSC_LENGTH 
; F444 LITERAL MSBSK_LENGTH 


0,0,32,0%; 
0,0,1,0%; 
144 °=°146; 
aia 
th 
5 Jen 
ee 
bf 1.0 
89° R4,; 
4,0,8,0%; 
80.16.04: 
12,6,32,08; 
16,0, 32.0%: 
20.0, 32.0%: 
24.0, 32,08: 
28; 

28; 
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! Flags 
Status code present (not used) 

! Error detail field present (DETAIL) 

! Message text field present (TEXT) 
Second Line of message text present (TEXT2) 
Enitity descriptor field present (ENTITY) 
Data descriptor field present (DATA) 
System message field present (TEXT) 

! Status code 
Detail 

! Status code for text message. 

! Status code for second Line of text msg. 
Entity descriptor address 

! Data descriptor address 


' Maximum MSB size 
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LITERAL 
SEQULST (DBGSC 
» (NETI 
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LITERAL 

SEQULST (DBGSC_,GBL,16,1 
. (DMPNOB, ) 
» (DMPLIN,) 
- (DMPLOG 
. (DMPOB 
» (DMPC 
- (DMPX 
» (DMPX 
pcos 
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These flags are used to enable loggin 
file. The flags are defined by trans 


NML internal Logging (debugging) flags 


ta 
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of specified data to the NML log 
ting the logical name NMLSLOG. 


Network send/receive logging 
File read/write Logging 
NPARSE state transition Logging 
Loopback transmit/receive logging 
NETACP Q10 coger 

ve lo 


! MOP send/rece aging 
' Trace service operations 
! Network event (EVL) logging 


Dump node permanent data base file 
Dump Line permanent data base file 
Dump bogging permanent data base file 
object permanent data base file 
Dump circuit permanent data base file. 
Dump xe module permanent data base file 
X29 module permanent data base file 
Dump Configurator Module permanent data base file 
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NO 


7 
8 


OEGF 


] 
} Parameter semantic table (PST) definitions 
0 1... SPSTDEF 
MACRO PST$W_DATAID = 0,0,16,0%; ! DNA parameter code 
0 MACR PST$B_FORMAT = 2,0,8,0%; ! Parameter format (byte, word, longword, etc.) 
0 MACRO PSTSB_DATATYPE = 3,0,8,0%; ! Data type code (coded, coded multiple, etc.) 
0 MACRO PSTSL_MINVALUE = 4:0.32,08; ! Minimum value or string length 
0 MAC PSTSL_MAXVALUE = 8,0 3 0%; ! Maximum value or string Length 
0 MACRO PSTSL_NFBID = 12,6,32,04; ! ACP parameter identifier 
0 LITERAL PSTSC_ENTRYLEN = 16; 
$ LITERAL PSTSK_ENTRYLEN = 16; ! Parameter semantic table entry length 
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; ¢ : 
: : : 
; 5 ‘ ; 
: 0 23 } Entity information table definitions. ; 
: 0358 i. SEITDEF : 
: 0560 MACRO EITSB_FILEID = 0,0,8,0%; Permanent data base file id code : 
> 0561 MACRO EITSWIDETAIL = 1,0.16,08; i NICE error detail entity code ; 
F B206 MACRO EITS$W_KEY = 2°0-16 0%; ! Permanent data base search key : 
: 26 MACRO E1T$B_DATABASE = 0.8 63: ! Volatile data base ID ; 
: 64 MACRO EITSLISRCH_ID1 = 6 : Of; i Volatile data base search key one ID for one entity ; 
: Bee? MACRO EITSL_SRCH_ID2 = 16,6,32,04; § Volatile data base search key two ID for one entity : 
; F524 SHGW KNOWN search key ID, Length, sah and methane: ; 
: 0569 0 MACRO EITSL_KNO_SRCH_ID1 = 3:89 ! Search key one ID ; 
; 0570 MACRO EITS$L_KNO_SRCH =LEN] = 2:08: i Search key one Length : 
; or) ©@ MACRO EIT$L_KNO_SRCH_V = i Search key one value : 
: B26 8 MACRO EIT$B_KNO “OPERT” : UM. 0,8, A ¢ "Sense search one operator (EQL, NEQ, etc.) 
: 0574 0 
: Beee 8 } SHOW ACTIVE search key ID, length, value, and operator. 
; gaye 0 MACRO EITSL ACT _SRCH_ID1 = 1:8: 33.0% ' Search key one ID 
: 0578 O MACRO EIT$L_ACT_SRCH_LEN1 = i Search key one Length 
; 0579 0 MACRO EITSL_ACT_SRCH™ vA % = 4°" 35° te i Search key one value 
; 9380 8 MACRO EITSB_ACT_OPERT = 39,0,8, of; Sense of search one operator (EQL, NEQ, etc.) 
; 058¢ 0 MACRO EITSA_ALLTAB =: 40,0, 32,03; ! Parameter table for SET ALL 
HY 0583 0 LITERAL EITSC C“ENTRYLEN = 44; 
>; 0584 0 LITERAL EITSK-ENTRYLEN = 44; ! Entry Length 
; 0585 0 
; 0586 0 
; 0587 0 ! 
: 0588 0 ! Change parameter table definitions. 
: 0589 ! 
3 Beat 3 !.. . SCPTDEF 
: 8208 0 MACRO CPTSwW_ per pees = 0,0,16, 20%; ! Parameter semantic table index 
; 0593 0O MACRO CPTSA_DEFINE_R 2,0,32,0%; ! Define routine address 
: 0594 0 MACRO CPT$A_PURGE ERIN 6.0, 32,08: ' Purge routine address 
3 Bene } ‘ F SET_RTN,A Set routine address 
: 0596 iF CLEAR_RIN,A ' Clear routine address 
: 0597 0 LITERAL CPTSC_ENTRYLEN = 10; 
; 0598 0 LITERAL CPTSK_ENTRYLEN = 10; ! Length of table entry 
; 0599 0 
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cenee eieparee table definitions. This table is used by NMLCHANGE or 


NMLR to dispatch to the correct change routine for the entity. 
-. - SDTDEF 
MACRO DTSL_DISPATCH = 0,0,32,0%; ! Dispatch routine for this entity 


' 
Dispatch table definitions for NICE change operations. 


MACRO DTSL_SEDE_PARSE = 4,0,32,0%; ! Set/Define NPARSE table for parsing the 
NICE command parameters 

MACRO DTSL_CLPU_PARSE = 8,0,32,0%; ! Clear/Purge NPARSE table for parsing the 
! NICE command parameters. 

MACRO DTSA_SET_ROUTINES = 12,0,0,0%; ! SET routines for entity. 

LITERAL DT$S_SET_ROUTINES = 16; 

MACRO DTSA_CLEAR_ROUTINES = 28,0,0,0%; ! CLEAR routines for entity. 

LITERAL DTSS_CLEAR_ROUTINES = 16; 

MACRO DTSA_DEF INE_ROUTINES = 44,0,0,0%; ! DEFINE routines for entity. 

LITERAL DTS$S_DEF INE ROUTINES = 16; 

MACRO DTSA_PURGE_FOUTINES = 60,0,0,0%; ! PURGE routines for entity. 

LITERAL DT$S~PURGE ROUTINES = 16; 


! 
: Dispatch table definitions for NICE read operations. 


MACRO DTSA_SHOW_ROUTINES = 4,0,0,0%; ! SHOW routines for entity. 
LITERAL DT$S~SHOW-ROUTINES = 20; 
MACRO DTSA_LIST_ROUTINES = 24,0,0,0%; ! LIST routines for entity 
LITERAL DT$S"LIS1~ROUTINES = 20; 


‘+ +» SCHGDEF 


i Each of the DTS change ROUTINES fields breaks down into the following 
routine offsets. They are offsets in order to make NMLSHR PIC. 


MACRO CHGSL_ENTITY = 0,0,32,0%; ! Offset to change routine for single entity 
MACRO CHGSL_ENTITY_W_QUAL = 2032-08; | ! Offset to change routine for single entity 
! w a qualifier 
MACRO CHG$L_KNOWN = 8,0,32,0%; : ! Offset to change routine for KNOWN entities. 
MACRO CHGSL_KNOWN_W_QUAL = 12,0,32,0%; ! Offset to change routine for KNOWN entities 
f with qualifier 
LITERAL CHGS$C_CHG_TABLEN = 16; 
LITERAL CHGSK_CHG_TABLEN = 16; ! Length of dispatch table 
‘+ +» SRDDEF 


i Each of the DT$ read ROUTINES fields breaks down into the following 
! routine wffsets. They are offsets in order to make NMLSHR PIC. 
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! 
MACRO RD LLENTITY = 0,0,32,0%; ! Offset to read routine for single entity 
MACRO LIENTITY_W =QUAL = 420,32, OF eter ! Offset to read routine for single entity 
w ua 
MACRO RDSL_K = 8,0,32,0%; . ! Offset to read routine for KNOWN entities. 
MACRO DSL “KNOWN WW -QUAL = 12, 0.52 0% : i Offset to read routine for KNOWN entities 
! u ier 
MACRO RDSL_ACTIVE = 16,0.88,08:" ! Offset to read routine for ACTIVE entities. 
LITERAL RD$C_RD _TABLEN = § ; 
LITERAL RDSK-RD-TABLEN = 20; ! Length of dispatch table 
«+. SZERDEF 
i Each of the ZERS zero ROUTINES fields breaks down into the Syn towing 
routine offsets. They are offsets in order to make NMLSHR PIC. 
MACRO ZERSL <DISPATCH s 9.0.3 OR: ! Dispatch routine for this entity 
MACRO ZER sf =EN TITY = 4,0,32,0%; ! Offset to zero routine for single entities. 
MACRO ZER NOWN = 8,0,32,0%; i Offset tc zero routine for KNOWN entities. 
LITERAL TERSC CmIER. TABLEN = 12; 
LITERAL ZERS$K_ZER_TABLEN = 12; ! Length of dispatch table. 
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This file defines the event data base ures. 


Event source block definitions. 


oe e SSRCDEF 
MACRO SRCSW_LENGTH == 0,0,16,0%; 
MACRO SRC$B_SINKTYPE = 2,0,8,0%; 
i 
MACRO SRC$B_SRCTYPE = 3,0,8,0%; 
' 
MACRO SRC$ST_SOURCE = 4,0,0,0%; 
LITERAL SRCS$S_SOURCE == 18; 
i Source = 
MACRO SRC$SW_NODADR = 4,0,16,0%; 
' Source = 
i NMASC_ENT 
MACRO SRCSB_ IDLENGTH = 4,0,8,0%; 
MACRO SRC$T_ID = 5,0,0,0%; 
LITERAL ences 1D = 17; 
MACRO SRCS$W_MSKCOUNT = 22,0,16,0%; 
LITERAL SRCSC_LENGTH = 24; 
LITERAL SRCSK“LENGTH = 24; 
' 
Event block definitions. 
i... SEVTDEF 
MACRO EVT$W_CLASS = 0,0,16,0%; 
CRO EVTSQ-LOGMSK = 4,0.0,63; 
LITERAL EVISS"LOGMSK = 8; 
RO EVTSQ-FILTERMSK = 12,0, 0,0%; 
LITERAL EVTSS-FILTERMSK = 
LITERAL EVISC"LENGTH == 6; 
LITERAL EVISKILENGTH = 20; 
' 
Event table definitions. 
i... SETBDEF 
MACRO ETBSW_CLASS = 9.0.16.08: 
MACRO ETBSA-GLOBAL = 2,0,32,0%; 


' Source type code: 
NMASC ENT_NOD 
NMASC_ENT_CIR 
NMASC_ENT_LIN 
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Byte count of entire source block 


Sink type code: NMASC_SNK_CON 


NMASC_ SNK FIL 
NMASC~SNK_MON 


NMASC_ENT_KNO 


Source id string 


node (NMA$C ENT NOD) 
Node addre 
line or circuit tR ENT °C IN or 


Source id string length 
Source id string 


' Count of event blocks (mask sets) 


! Length of fixed part of source block 


' Event class 


! Event log mask 
' Event filter mask 


! Length of event block 


vent class 


! 
' Global filter mask 
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ine filter mask 


! No 
j 
lter mask 


! Circuit f 
! Module f 


! Length of event table entry 


End of NMLDEF.MDL 
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: 0748 0 : | : 
; 0749 0 : ZTITLE Bat be, - NML Data Definitions’ $ 
; 078) 8 IDENT = ‘'V04-000' | : 
: pr26 8 leueaeenaeeneereeeneeerentrenttenenenetererrettrerererererenenenennestnnntes | : 
3 '® e 3 
: 0754 0 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 7 ; 
s 67355 9 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
; bree 8 ‘- ALL RIGHTS” RESERVED. * ; 
6 . ® | P 
; ore © '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | : 
; 0759 0 'w ONLY IN ACCORDANCE WITH THE TER F SUCH LICENSE AND WITH THE * : 
; 0760 QO '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 0761 O ‘ew COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 0762 QO 'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 5 
; BP e7 4 i TRANSFERRED. ® : 
: 'e * 3 
s 765 0 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
:; 0766 O 'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 3524 4 i. CORPORATION. * : 
e . 7 | Ps 
; 0769 O 'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: erro ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * | : 
vo . * & 
; Gra @ 'e * 3 
S are 8 "eaten aah adit tn faint : 
: 0775 0 | ? 
: 0776 O '++ 

; gore FACILITY: DECnet-VAX Network Management Listener | 

: 0779 0 i ABSTRACT: | 

; 0780 0O ‘ 

: 0781 O ' 

s ores 8 This module contains macro and symbol definitions used by all NML modules. 

: ooge ° ENVIRONMENT: VAX/VMS Operating System | 

: ores 4 AUTHOR: Distributed Systems Software Engineering 

: 0788 0 — | CREATION DATE: 30-DEC-1979 | 

; 0789 O ! 

:; 0790 0 ' MODIFIED BY: 

; 443 0 ! v03-006 MKPO0008 Kathy Perko 24-June-1984 

; at 0 ‘ Increase the size of the Q10 P4 putter to the minimum 

; 0795 0 ! value SYSGEN allows for MAX BUFFER. This is a slight 

:; 0794 0 : improvement on the Limit for the number of sources which 

3 boa 2 can be logged for a single sink node. 

: 0797 0 i v03-005 MKP0007 Kathy Perko 9-Aprit-1983 

; 0798 0 : Add globals for executor address in the volatile and 

: 4444 0 permanent databases. 

: 0801 i v03-004 MKP0006 Kathy Perko haben 671 -1983 

: sth) 8 ' Convert node permanent database to multiple ISAM keys for better 

: rt : performance. Also, make NCP regvense message entity buffer 

; 804 0 ; size bigger and global - for X25 tracepoint names. 
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>; 0805 0 ' ; 
; 0806 0 : v03~-003 MKPO000S : Kathy Perko 19-April-1983 ; 
: erg 8 Delete service functions from NML. : 
: 0809 0 vO03-002 MKP0004 Kathy Perko 28-June-1982 | : 
; 0810 0 ; Shrink P4 buffer size from 730 bytes to 512 to get rid : 
>; 0811 O : of Q10 quota exceeded errors. : 
3 pets 0 : Add macro for generating Search Key IDs for Entity Table. ‘ 
s 06135 9 : Rename qualifier to use its CPT index instead of the Network ; 
; Sete 8 } Management parameter code. : 
3 B51¢ 0 : v03-001 MKP0003 Kathy Perko 17-Mar-1982 | : 
; Hd 8 Rename some global fields so the names mean more. | : 
>; 0819 0 : v02-002 MKP0002 Kerhy Perko 2-Nov-1981 ; 
; 0820 0 Delete NMLSGW_CMD_CHAN | : 
3 0838 0 : v02-001 MKP0001 Kathy Perko 14-Sept-1981 : 
>; 0825 0 : Make P4 buffer size smaller so systems with SYSGEN paraneter, | ; 
: oB5e 0 : MAXBUF, don't get buffer quota exceeded for SHOW CIRCUIT : 
; 0825 0 CHARACTERSITICS. | : 
>; 0826 0 ‘ : 
; 0827 0 l== : 
; 0828 0 ; 
; +194 0 : 3 
; 0830 0 ! Miscellaneous symbols : 
; 0831 O : : 
; bees 0 LITERAL : 
>; 0833 0 FALSE = 0, ; 
>; 0834 0 TRUE = 1; : 
>; 0835 0 : : 
>; 0836 0 ! The ry ceuene eyenets are internal parameter codes. The values all have : 
; 0837 0 ! bit 15 set, indicating a counter value, to avoid conflicts with other : 
; st 8 ; Metwork management parameter codes. ‘ 
; 0840 0 LITERAL : 
; 0841 QO NMASC_PCNO_ASS = 1 * 15 OR O, ! Loop node address : 
; 0842 0 NMASC_PCLI_LCS = 1 * 15 OR 1, ' Line counters : 
>; 0843 0 NMASC_PCNO_ECS = 1 * 15 oR ¢ ' Executor node counters : 
> 0844 0 NMASC_PCNO_NC$ = 1 * 15 OR 3, ' Node counters 5 
>; 0845 0 NMASC_PCCI_CC$ = 1 * 15 OR 4, ' Circuit counters : 
> 0846 0 NMASCTPCXP"PCS = 1 * 15 OR S. | 4-2 Protocol DIE counters. | : 
; rtf 0 ,  NMASCLPCXS SCS = 1 * 15 OR 6; ! x-25 Server counters : 
3 0829 8 ! Structure declarations used for system defined structures to 3 
; 0850 0 ! save typing. g 
; 0851 0 : | : 
i 085¢ 0 STRUCTURE : 
>; 0855 0 BBLOCK (O, P. S, E; NJ = , 
>; 0854 0 : 
3 Bees (BBLOCK+0)<P,S,E>, : 
: 0857 0 BBLOCKVECTOR CI, 0, P. S. E; N, BS) = | : 
s 0860 0 ((BBLOCKVECTOR+1 *BS)+0)<P,S,E>; : 
: 0861 0 ; 
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; pees 0 : Macro to generate Network ACP Control QI10 (NFB) Pl buffer contents. The NFB ; 
; oper 8 ; describes SET, SHOW, CLEAR, and ZERO operations. ; 
> 0865 0 MACRO | : 
; 0866 0 SNFB (FUNC, FLAGS, DATABASE, SRCH_KEY_ONE, OPER_ONE : 
; " 0867 9 SRCH-KEY_TWO, OPER-TWOS = | : 
; ™ 0869 0 BYTE ( ZIF ZIDENTICAL (FUNC, 0) ! Q10 function code. | : 
; 4 0870 O XTHEN : 
: ™ 0871 0 ZELSE XNAME ('NFBSC_FC_', FUNC) | : 
; #4 pare 0 RFID, ; 
>; M 087 BYTE ( RIF ZNULL (FLAGS) ! Error Update and Process : 
; M 0874 XTHEN ! Multiple Entries flags. 

; & 0875 O ZELSE FLAGS 

; 4 0876 O aFI) 

; ™ 0877 O BYTE ( ZIF XIDENTICAL (DATABASE, 0) ! ACP database to update. : 
; ™ 0878 O THEN 

; 4 0879 +O ZELSE ZNAME ("NFBSC_DB_* DATABASE) 

; ™ 0880 0 ZFID, 

; ™ 0881 O BYTE (ZIF ZNULL (OPER_ONE) ! Opert 

; #4 pane 0 ZTHEN 0 

; ™ 0885 0 ZELSE OPER_ONE 

; M0884 0 xFI 

; #0885 0 ), 

: 4 0886 0 SSRCM_KEY (DATABASE, SRCH_KEY_ONE), ' Search key one ID | 

; 6 0887 O SSRCH_KEY (DATABASE, SRCH_KEY_TWO), ' Search key two ID 

: M0888 0 BYTE TXIF ZNULL (OPER_TWOY i Oper2 | 

; ™ 0889 0 THEN 

; #0890 0 ZELSE OPER_TWO 

; #0891 O 2FI 

; 4 0892 0 ), 

: 0893 0 BYTE (0), ' Spare | 

> ™ 0894 0 WORD (0), ! variable cell size 

; — 0895 0 

; ™ 0896 0 ZIF NOT ZNULL(ZREMAINING) 

; 4 0897 0 XTHEN SFIELD ID LIST (DATABASE, XREMAINING) | | 

; 4 0898 0 -LONG (RFBSC_ENDOFLISTS ! End delimiter for field ID List. 

; § 0899 O ZELSE 4 : ; | 

; #0900 0 LONG (NFBSC_ENDOFLIST) ! End delimiter for field ID List. 

: ™ 0901 0 2FI 

; #0902 0 

; 0904 0 

: 0905 8 ‘ 

> 0906 ! Generate a Search Key ID for an NFB. If the Search key is null, 

3 sit 8 use a wildcard search key ID. 

; ™ 0909 O SSRCH_KEY (DATABASE, SRCH_ ID) = 

: 40910 0 LONG ( ZIF ZNULL (SRCA_ID) 

: 8 eat 0 ZTHEN NFBSC_WICDCARD | 

; 12 0 ZELSE SFIELB_ID (DATABASE, SRCH_ID) 

; "0915 0 ZFI ) 

; ©0914 8 g. 

; 6915 : se 

> 0916 0 ! Generate a List of longwords containing the NETACP field IDs for 

; 0917 0 ! the parameters. This iterative macro will generate as many 

; 0918 0 ! field IDs as are supplied. 
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1 
Macro to create constant string descriptor 


MACRO 


; 0919 

: #4 4 0 $F 1ELD ID bi5) (DAT wiry} CFIELD_ID) = 

: # 0921 LONG TSFIELD_ID (DATABASE, FIELD_ID)) 
; FF ¢ ¥° 

; ww 0 

; 6 0924 0 SFIELD_ID coat ThpASE FIELD_ID) = 

> 40925 0 LIF XIDENTICAL (FIELD_TD, NFBSC_WILDCARD) OR 

; . 84 $ 8 TIDENTIEAL (FIELD_ID, NFBSC_COLLATE) 

; & 0928 O FIELD_ID 
3; 4 0929 0 ZELSE 
; 4 0930 O Z1F Cl, (FIELD_ID) 
: 4 0931 O <TH | 
: M Oo as 0 arse NAME ('NFBSC_* ,PATABASE,'_',FIELD_ID) 
; 4 0933 O xFI 

; 4 0934 0 <FI 

; 0935 0 q; 

; 0936 0 
; 0937 0 ' 

; ah 4 4 Macros to generate Network Control 1/0 request descriptors. | 
; gee Btwn 
; pore 0 i Declare the NFB buffer (use the number of input parameters to figure 
; Sed 4 out how big to make it) and set up a descriptor for it. | 
3; 40945 O SNFBDSC (NAM) = 
:; 4 0946 0 SWITCHES UNAMES; 
3; 4 0947 O OWN 
3; 40948 O NFB : VECTOR CSNFB_ALLOCATION (ZREMAINING)) 

: . Ben 8 “INITIAL ($NEFB (XZREMAINING)); 

3; #0951 O NAME(NAM) = UPLIT (ZALLOCATION(_NFB), _NFB); 

: 4 0952 0 UNDECLARE _NFB; 

; #0953 0 SWITCHES NOUNAMES 

3 0954 0 i, 

; 0955 0 

; & 0956 0 SNFB_ALLOCATION [] = 

; ™ 0957 O 5+(MAX(0, ZLENGTH-6)) 

:; 0958 0 3 

: 0959 0 ! 

: a : Macro to extract the bit number from bit field references 
; . 0962 0 MACRO 

; § 0965 O SBITN (0, B, Ww. S) = 8B 
; 0964 0 F | 
: 0965 0O ‘ 
; 0966 0 Macro to signal status message 
: 0967 8 ! 
: . 0968 
; 4 0969 O CRO SIGNAL_M MSG () = | 
; 409 SIGRAL (NAL SK _SIG_CODE, ZREMAINING) 
3 0 

3 0 

; 0 

: 0 
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SASCID D {] = 
(UPLIT (ZCHARCOUNT (ZSTRING(ZREMAINING) ) 
= UPLIT BYTE (ZSTRING(ZREMAINING) 5)) 
MACRO 
SASCIC (] = 


UPLIT BYTE (ZASCIC XZSTRING (ZREMAINING) ) 
: 
} Macro to move an ASCII counted string to a buffer. 


CRO 
SMOVE ASCIC (STRING, PTR) = 
PTR = CHSMOVE ( ae ty (ZASCIC STRING), 
PLIT BYTE (ZASCIC STRING), 
%; 


ACRO 
DESCRIPTOR = 
BBLOCK (8) 
l a 


: 1/0 Status Block definition 


FIELD 
ease, f preas = 
IOS$W_STATUS = CO, 0, 16, 0). . ! Status field 
1OS$W_COUNT = (2, 0, 16, 0], i Byte count field 
= (4, 0, 32, 0) i Device dependent information 


IOSS$SL_INFO 
TES; 


MACRO 
BBLOCK [8] FIELD (10SB_FIELDS) 


: 
Macro to define Network Management version fields 


FIELD 


NV _FIELDS = 
NMVS$B_VERSION = £0.0.8.03, 
NMVSB-DEC_ECO = [1.0.8.0 
NMVSB_USER_ECO = (2,6,8.05 
MACRO 
. = BBLOCK (3) FIELD (NMV_FIELDS) 


| 
Macro to define external symbols common to most of the modules. 


MACRO SNML_EXTDEF = 
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> M 1033 EXTERNAL : 
: 4 10 : . 
; : 8 5 Event data : 
; 4 10 0 NMLSGB_EVTSRCTYP : BYTE ! Event source type | | ; 
; 4 10 NMLSGQ"EVTSRCDSC : DESCRIPTOR, ! Event source descriptor ; 
; 41039 0 NML$GW_EVTCLASS : WORD, ' Event class : 
; 4 1040 0 NMLEGB_EVTMSKTYP : BYTE ! Mask type ‘ 
: 1041 0 NMLSGQ-EVTMSKDSC : DESCRIPTOR, i Mask descriptor | ; 
im 104¢ 9 , _ NMLSGWIEVTSNKADR : WORD, | Sink node address : 
° . | ; 
3M 1044 NML$GW_ACP_CHAN, : 
; M 1045 é NMLSGL—~LOGMASK : BITVECTOR (32), : 
74 10466 0 NML$GQ"ENTSTRDSC : DESCRIPTOR, : 
; 4 10467 0 NMLSAB_QIOBUFFER : BBLOCK (0), : 
34 10468 0 NML$GQ_QI0BFDS : DESCRIPTOR, : 
7 41049 0 NMLS$AB_EXEBUFFE : VECTOR CO, BYTE), : 
:™ 1050 0 NMLSGL-EXEDATPTR, ; 
; 4 1051 0 NML$GQ-EXEDATDS : DESCRIPTOR, : 
A 1038 0 NML$GQ_EXEBFD : DESCRIPTOR, ’ 
; 41053 0 NMLS$AB_RCVBUF FER : VECTOR CNML$K_RCVBFLEN, BYTE), : 
7 41054 0 NML$GQ_-RCVBFDSC : DESCRIPTOR, : 
7 41055 0 NMLS$AB_SNDBUF FER : VECTOR CNML$K_SNDBFLEN, BYTE], ; 
7 4 1056 0 NML$GQ- SNOBF DSC : DESCRIPTOR, : 
; ™ 1057 0 NMLSGL_RCVDATLEN, ; 
; 4 1058 0 NMLSAB_CPTAB : BBLOCKVECTOR CO, CPT$K_ENTRYLEN], 

: 4 1059 0 NML$AB_MSGBLOCK : BBLOCK CMSBSK_LENGTH), 

; 4 1060 0 NALS TY_ID : BBLOCK (16), 

: 4 1061 0 NMLSAB_QUALIFTER_ID : BBLOCK [16], 

; #4 1066 0 NMLSAB_ENTITYDATA : BBLOCKVECTOR C, EITSK_ENTRYLEN], | 

>; ™ 1065 O NMLSAB_NML_NMV : NAV 

: M1064 0 NML$AB_PRMSEM : BBLOCKVECTOR CO, PSTSK_ENTRYLEN], | 

; 4 1065 0 NMLSAB_RE CBUF : BBLOCK [0], | 

7 4 1066 0 NMLSAL_ENTINF TAB VECTOR [0], | 

; M1067 0 NMLSAL_PERMINF TAB vEcTOR (0), 

7 4 1068 0 NMLSAW_PRM_DES : BLOCKVECTOR CPDBSK_NUMBER, 4, WORDJ, 

; 4 1069 0 NML$GB_CMD-VER : BYTE, 

; ™ 1070 0 NMLSGB_ENTITY_CODE : BYTE, 

741071 O NMLSGB_ENTITY-FORMAT: BYTE, 

; 8 1078 0 NMLSGL-QUALIFTER_PST, 

:™ 1073 0 NMLSGB_QUALIFIER-FORMAT: BYTE, 

> 41074 0 NML$GB_FUNCTION : BYTE, 

; ™ 1075 O NML$GB_ INFO : BYTE, 

7 1076 9 NML$GB- OPTIONS : BYTE, 

3 4 1077 NMLS$GL_PRMCODE 

: 4 1078 0 NMLSGL-PRS_FLGS : BLOCK (1), 

> 1079 0 NMLSGL"NML-ENTITY, 

; 4 1080 0 NML$GQ_NE TRAMDSC : DESCRIPTOR, 

7 4 1081 0 NML$GQ~RECBFDSC : DESCRIPTOR, 

| 1088 NML$GW~PRMDESCNT : WORD; 

Re ge 

; 1933 : NPARSE argument block structure definitions 

; 1089 0 MACRO 

; 4 1088 O SNPA_ARGDEF = 

3; ™ 1089 0 BUILTIN 


VAX-11 Bliss<-32 V4.0-742 
"$255$DUA2B: [NAL . SRCINMLDDL.B32; 1 
M 1090 AP; 
M 1091 BIND 
mM 1098 NPARSE_BLOCK = AP : REF SNPA_BLKDEF; 
By 
099 } NPARSE argument block definition macro 
097 MACRO 
Mm 1098 SNPA_BLKDEF = 
M 444 BBLOCK CNPASK_LENGTHO] 


1 
Buffer Length parameters. 


LITER 


Wr 


= 215° ! Receive buffer Length 
NMLSK_SNDBFLEN = 512, ! Send buffer Length 
$K_NFBB = 256 ! Max size for an NFB. 

K_Q = 1206, ' Q10 buffer Length 
NMLSK_P2BUFLEN = 104 ! Max length for P2 buffers. 
NMLSK_RECBFLEN = 1024, ! Record buffer Length 
NMLSK_ENTBUFLEN = 64, ! Entity name buffer size. 


i Maximum bytes of data in a permanent database record. Leaves room 
! for the node keys (which take up the most room) at the beginning of 
: the record. 


NML$K_MAX_REC_DATA = NMLSK_RECBFLEN - NMNSK_NODE_KEYS_LEN, 
NMLSK_PERP_KEYS_LEN = 2; : Key Length for all permanent databases 


, except the node database. 


Parameter descriptor block (PDB) definitions. 
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LITERAL PDBSK_NUMBER = 32; ! Number of parameter descriptor slots 
MACRO PDBSW_INDEX = 0,0,16,02; ! Parameter change table (CPT) index 
MACRO PDB$W_COUNT = 1,0,16,0%; ! Parameter byte count 

MACRO PDBSA_POINTER = 2,0,32,0%; ! Pointer to parameter value 

LITERAL PDBSK_SIZE = 8; ! Size of parameter descriptor entry 
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' 
Version: *v04-000' 
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\ * 
:* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
:* ALL RIGHTS RESERVED. bd 

® 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
le | ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
‘* COPIES THEREOF MAY NOT BE PROVIDED 0 HERWISE MADE AVAILABLE TO ANY * 
i R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WEREBY * 
:* TRANSFERRED. ® 

® ® 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
is AND SHOULD NOT BE CONSTRUED AS A COMM 
it CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


* 
'e ® 
* 
* 


CT TO CHANGE WITHOUT NOTICE * 
ITMENT BY DIGITAL EQUIPMENT * 


os 
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' 
NPARSE argument block field definitions. 


!,..SNPADEF 

MACRO NPASL_COUNT = 0,0,32,0%; ! Argument count (NPASK_COUNTO) 
LITERAL NPASK_COUNTO = 8; ! Argument count value 

MACRO NPASL_MSGCNT = $°0°3 O02; ! Count of bytes remaining in message 
MACRO NPASL_MSGPTR = 8,0 0%; ! Pointer to remaining message 
MACRO NPASL-OPTIONS = 12,6,32,0k; i Options (not used) 

MACRO NPASL_FLDCNT = 16,0,32,0%; ' Count of bytes in matched field 
MACRO NPASL_FLDPTR = 20,0,32,02; ! Pointer to matched field 

MACRO NPASL_LONG = 24,0,32,02; ! Matched longword value 

MACRO NPASB_BYTE = 26,0,8,0%;° | byte value 

MACRO NPASW_WORD = 24,0,16,0%; } word value 

MACRO NPASL_NUMBER 7 8-8 +85 OR: ! Matched signed value (not used) 
MACRO NPAS$L_PARAM = 32,0,32,02; ! Action routine parameter value 
LITERAL NPASC_LENGTHO = 3: 

LITERAL NPASK_LENGTHO = 36; ! Size of argument block structure 
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souree to eyeectere the macros required for the precompile of 
2 so they do not appear in the Library. 


1177 ' 
1178 ' Version: *"v04-000' 
117 ! 
1180 'e+ 
1} 1 NMATAIL.832 
11 g i 
11 ! NMALIBRY.B 
He gi 
11 
11 UNDECLARE XQUOTE SEOULST. 
11 QUOTE GETIST_, 
1190 ZQUOTE GET END... 
1191 ZQUOTE NUL2ND_ 
13 8 : 
1194 8 ' 

! nd o ‘ 
1195 ! End of NMATAIL.B32 
1196 0 ! 
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BLISS/LIBRARY=LIBS:NMLLIB/LIST=LIS$:NMLLIB SRC$:NMAHEAD+L 1B$:NMLDEF +SRC$:NMLDDL +i IBS: NPADEF +SRC$:NMATAIL 


Run Time: 00:13. 
Elapsed sees ug FES 217. 
Lines/CPU M 424 
Lexemes/CPU-Min: oe 1 
Memory Used: pages 
Library Precompilation 
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